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-- file: DumpUtils.Mesa 
-- Edited by: 

Sandman on May 23, 1978 8:32 AM 

Barbara on July 31, 1978 4:44 PM 

Johnsson on August 29, 1978 11:05 AM 

DIRECTORY 

AltoDefs: FROM "altodefs" USING [word length] , 
ControlDefs: FROM "control defs" USING [ 

BytePC, FieldDescriptor, FrameHandle , Global FrameHandle, MaxParmsInStack, 

Null Frame, WordPC], 
CoreSwapOefs: FROM "coreswapdef s" USING [SVPointer], 
DebugBreakptDefs: FROM "debugbreakptdefs" USING [ 

CodeToSourcelndex, PrintLocation , SourceFileMissing], 
DebuggerDefs: FROM "debuggerdef s" USING [ 

Display, Fiel dContex t , FRPointer, f ull bitaddress , LA, MainBTI, SA, 

SeiHandle, SOPointer, SymbolObject, SymFrameHandle , VersionStamp] , 
DebugMiscDefs: FROM "debugmiscdef s" USING [WriteCharZ, WriteEOL], 
DebugSymbolDefs: FROM "debugsymbol def s" USING [ 

DAcquireSymbolTable, DReleaseSymbolTable, HandleForBase, 

TableForString] , 
DebugUtilityDefs: FROM "debugutil itydef s" USING [ 

LongREAD, MREAD, ReadCodeByte, SREAD], 
IODefs: FROM "iodefs" USING [WriteChar, WriteOctal, WriteString] , 
Mopcodes: FROM "mopcodes" USING [zBRK, zNOOP, zRFS], 
StringDefs: FROM "s tringdef s" USING [ 

AppendSubString , Substring, SubStringDescriptor] , 
SymbolTableDefs: FROM "symbol tabledefs" USING [ 

NoSymbolTable, SymbolTableBase, SymbolTableHandle] , 
SymDefs: FROM "symdefs" USING [ 

BitAddress, BodyRecord, BTIndex, BTNull, CBTIndex, CBTNull, CTXIndex, 

CTXNull, HTIndex, HTNull , ISEIndex, ISENull, SEIndex, SENull , 

TransferMode] ; 

DumpUtil s: PROGRAM 

IMPORTS DebugBreakptDefs, DebuggerDefs, DebugMiscDefs, DebugSymbolDefs, 

DebugUtilityDefs, IODefs, StringDefs, SymbolTableDefs 
EXPORTS DebuggerDefs « 

BEGIN 

SeiHandle: TYPE = DebuggerDefs .SeiHandle; 
SymFrameHandle: TYPE - DebuggerDefs .SymFrameHandl e; 
SOPointer: TYPE = DebuggerDefs .SOPointer; 
FRPointer: TYPE = DebuggerDefs . FRPointer; 
SymbolTableBase: TYPE = SymbolTableDefs. SymbolTableBase; 

WriteBlanks: PUBLIC PROCEDURE [n: CARDINAL] - 
BEGIN 

THROUGH [0..n) DO IODef s .Wri teChar[ ' ]; ENDLOOP; 
RETURN 
END; 

WriteBodyName: PUBLIC PROCEDURE [f: SymFrameHandle, printFrames: BOOLEAN] - 
BEGIN -- type id of body associated with frame 
sei: SymDefs. ISEIndex «- BodySei[f]; 
WriteTransferName[SeiHandle[stbase: f.stbase, sei: sei], printFrames, 

IF printFrames THEN f.faddr ELSE ControlDefs . Nul IFrame, 

DebugUtil ityDef s .MREAD[@f .faddr. access 1 ink]] ; 
RETURN 
END; 

BodySei: PUBLIC PROCEDURE [f: SymFrameHandle] RETURNS [SymDefs . ISEIndex] - 
-- finds sei for body corresponding to frame f 
BEGIN OPEN SymDefs, f.stbase; 

cbti: CBTIndex ♦- PcToCBTI[f . stbase , FrameRelBPC[f. faddr]] ; 
RETURN[IF cbti # CBTNull THEN (bb+cbti).id ELSE ISENull] 
END; 

PcToBTI: PUBLIC PROCEDURE [stbase: SymbolTableBase, pc: ControlDefs .BytePC] 
RETURNS [SymDefs. BTIndex] - 

BEGIN OPEN stbase, SymDefs; -- maps pc into deepest body table index 
btlimit; BTIndex - LOOPHOLE[stHandle . bodyBlock . size] ; 
cbti: BTIndex; 

bti: SymDefs .BTIndex <- DebuggerDefs .MainBTI ; 
IF pc - ControlDefs. BytePC[0] THEN 
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RETURN[L00PH0LE[bt1+SIZE[0ther BodyRecord]]]; -- main body 
UNTIL bti - btlimit DO 

WITH body: (bb+bti ). info SELECT FROM 

External a > IF pc IN [body .origin. .body .origin+body. by tes) THEN 
BEGIN 
DO 

cbti <- (bb+bti) .firstSon; 

IF cbti * BTNull THEN RETURN[bti]; 

DO 

WITH (bb+cbti).info SELECT FROM 

External «> IF pc IN [origin . .origin+bytes) THEN 

BEGIN bti <- cbti; EXIT END; 
ENDCASE ■> ERROR; 
IF (bb+cbti). link. which ■ parent THEN RETURN[bti]; 
cbti <- (bb+cbti) .1 ink. index; 
ENDLOOP; 
ENDLOOP; 
END; 
ENDCASE «> ERROR; 
bti <- bti+ (WITH b: (bb+bti) SELECT FROM 
Callable => (WITH b SELECT FROM 

Inner => SIZE[Inner Callable BodyRecord], 
ENDCASE => SIZE[Outer Callable BodyRecord]), 
ENDCASE «> SIZE[Other BodyRecord]); 
ENDLOOP; 
RETURN [BTNull]; 
END; 

PcToCBTI: PUBLIC PROCEDURE [stbase: SymbolTableBase, pc: ControlDef s.BytePC] 
RETURNS [SymDefs. CBTIndex] = 

BEGIN OPEN stbase, SymDefs; -- maps pc into first callable bti 
bti: BTIndex <- PcToBTI[stbase , pc]; 
DO 

IF bti - BTNull THEN EXIT; 
WITH b: (bb+bti) SELECT FROM 

Callable => RETURN[LOOPHOLE[bti]]; 
ENDCASE => 
BEGIN 

UNTIL (bb+bti) .link. which = parent DO 
bti <- (bb+bti) . 1 ink. index; 
ENDLOOP; 
bti «- (bb+bti) .link. index; 
END; 
ENDLOOP; 
RETURN[CBTNull]; 
END; 

AmlaRecord: PUBLIC SIGNAL RETURNS [BOOLEAN] - CODE; 

DumpCtxList: PUBLIC PROCEDURE [c: SymDefs . CTXIndex , sbase: Symbol TableDefs .SymbolTableBase , there: BOOL 
**EAN, faddr: f ull bi taddress , frp: FRPointer] = 

BEGIN OPEN DebugSymbolDefs, sbase; 

sh : Symbol TableDefs. Symbol Tab! eHandle; 

sei: SymDefs. ISEIndex; 

SO: DebuggerDef s.SymbolObject; 

sop: SOPointer «- @SO; 

isrecord: BOOLEAN *- SIGNAL AmlaRecord; 

hasname: BOOLEAN; 

t: SymDefs. TransferMode; 

filename: STRING «- [40]; 

desc: StringDefs.SubStringDescriptor; 

filess: StringDefs .Substring <~ @desc; 

newctx: SymDefs .CTXIndex; 

includedVersion : DebuggerDef s .Versions tamp; 

IF c - SymDefs. CTXNull THEN RETURN; 
DebuggerDef s . Ini t SOP [sop]; 
WITH (ctxb+c) SELECT'FROM 
included °> 
BEGIN 

IF -ctxcomplete THEN 
BEGIN 

sh <- HandleForBase[sbase] ; 

SubStr ingForHash[f iless , (mdb+ctxmodule) .mdhti]; 
StringDefs . AppendSubString[ filename, filess]; 
newctx «- ctxmap; 
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includedVersion «- (mdb+ctxmodule) .mdStamp; 
DReleaseSymbol Tab! e[ sbase] ; 

sbase <- DAcquireSymbolTable[TableForString[f ilename 
ISymbolTableDefs.NoSymbolTable «=> GOTO continue] 
ISymbolTableDefs.NoSymbolTable «> GOTO continue]; 
IF ~EquivalentVersions[sbase . stHandle. version , includedVersion] THEN 

BEGIN DReleaseSymbol rable[sbase]; GOTO continue; END; 
DumpCtxList[newctx, sbase, there, faddr, frp]; 
DReleaseSymbol Tab! e[ sbase]; 
[] <~ DAcquireSymbolTable[sh]; 
RETURN 
END; 
EXITS 

continue => 

BEGIN IODefs.WriteChar[ , 7]; sbase ♦■ DAcquireSymbolTable[sh] ; END; 
END; 
ENDCASE; 
IF (sei «- FirstCtxSe[c]) - SymDef s. ISENull THEN RETURN; 
IF (seb+sei) . ctxnum # c THEN sei <- NextSe[sei]; 
DebugMiscDefs.WriteCharZ[frp.startchar]; 
FOR sei <- sei, NextSe[sei] UNTIL sei = SymDef s . ISENul 1 DO 
hasname «- (seb+sei ) .htptr # SymDef s.HTNu 11 ; 

IF ~(seb+sei) .constant AND (isrecord OR hasname) AND ~(seb+sei ) . 1 inkSpace THEN 
BEGIN 
SO <~ DebuggerDef s . SymbolObject[stbase: sbase, baddr: faddr, sei: sei, 

tsei: (seb+sei) . idtype, space: 0, there: there]; 
t <- XferMode[sop. tsei]; 

IF (seb+sei) .writeonce AND (t = signal OR t - error) THEN GOTO skipit; 
IF -isrecord OR (TypeForm[sop . tsei] // union AND hasname) THEN 
WriteSymDef [sop , frp] 

ELSE IF ~f rp .f irstsym THEN DebugM iscDef s .Wri teCharZ[f rp . intersym] ; 
DebuggerDef s .Displ ay[sop , frp, FALSE]; 
EXITS 

skipit => NULL; 
END; 
ENDLOOP; 
IF ~frp.f irstsym THEN DebugMiscDef s .WriteCharZ[f rp . termchar] ; 
RETURN 
END; 

DumpValsFromState: PUBLIC PROCEDURE [bsei: SymDef s . ISEInclex, frp: FRPointer, 
symbase: SymbolTableDef s.SymbolTableBase, ps: CoreSwapDefs .SVPointer] = 
BEGIN -- if the bsei is a SIGNAL or ERROR then dumps input context 
OPEN symbase; 

typein, typeout: SymDef s .SEIndex; 
tsei: SymDef s .SEIndex <- (seb+bsei ) . idtype; 
t: SymDef s .Transf erMode; 
[typein, typeout] +- TransferTypes[tsei]; 
t <- XferMode[tsei]; 

tsei ♦- IF (t = signal OR t - error) THEN typein ELSE typeout; 
IF tsei = SymDef s.SENull THEN RETURN; 
DebugMiscDefs.WriteEOL[]; 

DumpCtxFromState[tsei , frp, symbase, ps, (t = signal OR t = error)]; 
RETURN 
END; 

DumpCtxFromState: PUBLIC PROCEDURE [tsei: SymDef s .SEIndex , frp: FRPointer, 
symbase: Symbol TableDef s .SymbolTableBase, ps: CoreSwapDefs .SVPointer , 
sigerr: BOOLEAN] = 

BEGIN OPEN DebuggerDef s, symbase; -- tsei is a record sei 
sei: SymDef s . ISEIndex; 
SO: SymbolObject; 
sop: SOPointer «- @SO; 
nwords: CARDINAL; 

IF tsei « SymDef s.SENull THEN RETURN; 
InitSOP[sop]; 
sop.stbase <- symbase; 
nwords *- WordsForType[tsei] ; 

sop. baddr ♦- f ul lbi taddress[bd: 0, wd: short[shortAddr :LOOPHOLE[ 
IF nwords > (IF sigerr THEN 1 ELSE ControlDef s .MaxParmsInStack) 
THEN DebugULilityDefs.SREAD[@ps.stk[0]] ELSE @ps . stk[0]]]] ; 
FOR sei <~ FirstCtxSe[FieldContext[sop. stbase, tse i]] , NextSe[sei] 
UNTIL sei * SymDeFs. ISENul! DO 
IF ~(seb+sei ) .constant THEN 
BEGIN 
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sop.sei «- sei; 

sop.tsei <- (seb+sei) . idtype; 
WriteSymDef[sop, frp]; 
sop.sei «- SymDefs. ISENull ; 
Display[sop, frp, FALSE]; 
WITH s-.sop.baddr SELECT FROM 

short ■> s.wd <- short[shortAddr: [s.shortAddr + WordsForType[sop. tsei]]]; 
ENDCASE ■> ERROR; 
END; 
ENDLOOP; 
IF ~frp.f irstsym THEN DebugMiscDef s .Wri teCharZ[f rp . termchar] ; 
RETURN 
END; 

WriteSymDef: PUBLIC PROCEDURE [sop: SOPointer, frp: FRPointer] - 
BEGIN -- types symbol definiton prefix 
IF -frp.symid THEN RETURN; 

IF ~f rp .f irstsym THEN DebugMiscDef s .WriteCharZ[frp . intersym] ; 
THROUGH [0. .frp. indentation) DO IODef s . WriteChar[ ' ] ENDLOOP; 
WriteSeiHand1e[SeiHandle[s tbase: sop.stbase, sei: sop.sei]]; 
DebugMiscDef s .WriteCharZ[f rp. symdel im] ; 
RETURN 
END; 

FrameRelBPC: PUBLIC PROCEDURE [f: ControlDefs . FrameHandle] 
RETURNS [ControlDefs.BytePC] - 
BEGIN -- returns cseg-relative pc from frame 
wpc: ControlDefs. WordPC <- DebugUtil i tyDef s.MREAD[@f.pc] ; 
RETURN [[ABS[wpc]*2 + (IF wpc < THEN 1 ELSE 0)]] 
END; 

WriteFrameLocus: PUBLIC PROCEDURE [f: SymFrameHandle , psource: BOOLEAN] « 
BEGIN 

WriteBodyName[f , TRUE]; 
IF psource THEN WriteSource[ 

DebugUtil i tyDef s.MREAD[@f.faddr. access link], FrameRelBPC[f .faddr], TRUE]; 
RETURN 
END; 

WriteSource: PUBLIC PROCEDURE [f: ControlDefs .Global FrameHandle, 
pc: ControlDefs.BytePC, scroll: BOOLEAN] ■ 
BEGIN OPEN DebugBreakptDefs; 
na: STRING * " not available"L; 
index: CARDINAL; 
source: BOOLEAN <- TRUE; 
DebugMiscDef s .WriteEOL[] ; 
IODefs.WriteString[" Source: M L]; 
IF pc # THEN 

BEGIN OPEN DebugUtilityDefs; 

IF ReadCodeByte[f , pc] # Mopcodes . zBRK THEN pc <- LOOPHOLE[pc-l] ; 
IF ReadCodeByte[f , pc] - Mopcodes .zNOOP THEN pc «- LOOPHOLE[pc-l] ; 
END; 
index <- CodeToSourceIndex[f , pc 
ISourceFi leMissing ~> 
BEGIN OPEN IODefs; 
WriteString[ source name]; 
WriteString[na]; 
source ♦■ FALSE; 
CONTINUE; 
END]; 
IF source THEN PrintLocation[f , index, scroll]; 
RETURN 
END; 

WriteSitbString: PUBLIC PROCEDURE [s: StringDefs .Substring] - 
BEGIN -- type substring 
i: CARDINAL; 
FOR i IN [0. .s. length) 

DO IODefs. WriteChar[s.base[s. offset + i]] ENDLOOP; 
RETURN 
END; 

WrlteSeiHandle: PUBLIC PROCEDURE [sh: SeiHandle] - 
BEGIN -- type id of sei 
OPEN sh.stbase; 
desc: StringDefs.SubStr i ngDes crip tor ; 
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ss: StringDefs .Substring <- Qdesc; 

hti: SymDefs.HTIndex; 

IF sh.sei - SymDef s . ISENull THEN RETURN; 

IF (hti «- (seb+sh.sei).htptr) ■ SymDef s .HTNull THEN 

BEGIN IODefs.WriteString["(anon)"L]; RETURN END; 
SubStringForHash[ss, hti]; 
WriteSubString[ss] ; 
RETURN 
END; 

WriteTransferName: PUBLIC PROCEDURE[sh : SeiHandle, fullname: BOOLEAN, 

frame: ControlDef s . FrameHandle , gframe: ControlDefs. Global FrameHandle] ■ 
BEGIN OPEN IODefs, sh.stbase; 
IF sh.sei ■ SymDef s. ISENull 

THEN BEGIN Wri teString[" (priv in "L]; fullname <- TRUE; END 
ELSE 

BEGIN 

WriteSeiHandle[sh] ; 

IF frame # ControlDef s.Nul 1 Frame THEN 

BEGIN WriteString[\ L: M L]; WriteOctal [frame] ; END; 

IF fullname THEN WriteString[" (in "L]; 

END; 
IF fullname THEN 

BEGIN 

WriteSeiHandle[[stbase: sh.stbase, sei: (bb+DebuggerDef s .MainBTI) . id]] ; 

WriteString[\ G: M L]; 

Wri teOctal [gframe] ; 

WriteChar[')]; 

END; 
RETURN 
END; 

f ullbitaddress : TYPE ■ DebuggerDef s . f ullbitaddress ; 
LA: TYPE = DebuggerDef s . LA; 
SA: TYPE = DebuggerDef s .SA; 

GetValue: PUBLIC PROCEDURE [sop: SOPointer] RETURNS [UNSPECIFIED] » 
BEGIN RETURN [GetValueN[sop , 0]] END; 

GetValueN: PUBLIC PROCEDURE [sop: SOPointer, n: CARDINAL] 
RETURNS [UNSPECIFIED]* 
BEGIN OPEN sop.stbase; 
a: ful Ibitaddress; 
f d: ControlDef s.Fi el dDescrip tor; 
v: UNSPECIFIED; 

IF sop. sei # SymDefs.SENull THEN 

BEGIN 

IF (seb+sop . sei) .constant THEN RETURN [(seb+sop . sei) . idvalue] ; 

--space # means already adjusted to exact size 

fd.size <- IF sop. space tt THEN sop. space 

ELSE (seb+sop. sei) . idinfo MOD Al toDef s .wordlength; 

a <- addbitaddrs[sop.baddr, full symaddress[sop]]; 

END 
ELSE 

BEGIN 

a <- sop.baddr; fd.size <- sop. space; 

END; 
fd. offset «- 0; 
fd.posn *- a.bd; 
WITH a SELECT FROM 

short => IF sop. there THEN v <- DebugUtil ityDef s.MREAD[shortAddr + n] 
ELSE v <- (LOOPHOLE[shortAddr, POINTER] + n)t ; 

long => IF sop. there THEN v <- DebugUtil ityDef s . LongREAD[longAddr . 1 p+n] ; 

ENDCASE *> ERROR; 
RETURN[READFIELD[v, fd]] 
END; 

READFIELD: PROCEDURE [v: UNSPECIFIED, fd: ControlDef s . Fiel dDescriptor] RETURNS [UNSPECIFIED] 
BEGIN 
ReadField: PROCEDURE [POINTER, ControlDef s . FieldDescriptor] RETURNS [UNSPECIFIED] - 

MACHINE CODE BEGIN Mopcodes . zRFS END; 
REIURN[ReadField[@v, fd]] 
END; 

fullsymacldress: PUBLIC PROCEDURE [sop: SOPointer] RETURNS [Ful Ibitaddress] - 



DumpUtils.mesa 2-Sep-78 15:32:14 Page 



BEGIN OPEN sop.stbase; 
b: SymDefs.BitAddress <- 

IF sop.sei # SymDefs.SENull AND ~(seb+sop. sei ) .constant 
THEN (seb+sop. sei) . idvalue 

ELSE SymDefs.BitAddress[0,0]; 
RETURN [fullbitaddress[bd: b.bd, wd : short[shortAddr : [b.wd]]]] 
END; 

addbitaddrs: PUBLIC PROCEDURE [a,b: f ullbitaddress] 
RETURNS [c: f ullbitaddress] ■ 
BEGIN 

t: CARDINAL - a.bd + b.bd; 
tDiv: CARDINAL a t/AltoDef s .wordlength; 
aSA: SA; 
aLA: LA; 

WITH a SELECT FROM 
short a > 
BEGIN 

aSA <- shortAddr; 
WITH b SELECT FROM 

short => c.wd «- short[shortAddr : [shortAddr + tDiv + aSA]]; 
long «> c.wd <- long[longAddr : LA[LI[ 1 i : longAddr . 1 i+tDiv + aSA]]]; 
ENDCASE; 
END; 
long a > 
BEGIN 

aLA <- longAddr; 
WITH b SELECT FROM 

short => c.wd <- long[longAddr : LA[LI[1 i : aLA. 1 i+ shortAddr+tDiv]]] ; 
long -> c.wd <- long[longAddr : LA[LI[1 i : aLA. 1 i + longAddr . 1 i+ tDiv]]]; 
ENDCASE; 
END; 
ENDCASE; 
c.bd *- t MOD AltoDefs. wordlength; 
RETURN 
END; 

EquivalentVersions: PUBLIC PROCEDURE [vl, v2: DebuggerDef s , VersionStamp] 
RETURNS [BOOLEAN] » 
BEGIN 

RETURN[vl. zapped OR v2. zapped OR vl = v2] 
END; 

InitSOP: PUBLIC PROCEDURE [sop: S0Pointer]» 
BEGIN 

sopt 4- [stbase: NIL, sei: SymDef s . ISENul 1 , tsei: SymDef s .SENul.l , 
there: TRUE, space: 0, baddr: fullbi taddress[bd: 0, 
wd: short[shortAddr:[0]]]]; 
END; 

END ... 



